home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000174_bounce-amos-lis…et@onelist.com_Tue Sep 8 15:04:17 1998.msg < prev    next >
Text File  |  1998-10-01  |  21KB  |  365 lines
  1. >From bounce-amos-list--1035-mcox=access.digex.net@onelist.com  Tue Sep  8 15:04:17 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.253])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id PAA11572
  4.     for <mcox@access.digex.net>; Tue, 8 Sep 1998 15:04:16 -0400 (EDT)
  5. Received: (qmail 18271 invoked by alias); 8 Sep 1998 19:01:18 -0000
  6. Received: (qmail 18186 invoked from network); 8 Sep 1998 19:01:15 -0000
  7. Received: from unknown (HELO rhenium.btinternet.com) (194.73.73.93) by pop.onelist.com with SMTP; 8 Sep 1998 19:01:15 -0000
  8. Received: from np5gt [195.171.231.5]  by rhenium.btinternet.com with smtp (Exim 1.70 #1) id 0zGT0o-0002fD-00; Tue, 8 Sep 1998 20:01:11 +0100
  9. Message-ID: <002c01bddb5b$3ddde0e0$05e7abc3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <Amos-list@onelist.com>
  12. Date: Tue, 8 Sep 1998 20:00:45 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/mixed; boundary="----=_NextPart_000_0029_01BDDB63.5F350F40"
  23. Subject: [amos-list] Bobs and Bit planes!!!!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_0029_01BDDB63.5F350F40
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: 7bit
  35.  
  36. Hey there... this prog i have just dug up from my amos drawers tints an
  37. image using bobs!
  38. Using the Plane control in the command....
  39. Bob bob#,background,Planes,Miniterm...
  40. By only changing the bits on a certian Bitplane of a screen you can produce
  41. a tint effect if your palette is set up properley...
  42. You should set up the palette like so....
  43. colours 00 - 07 is the normal palette of the image...
  44. colours 08 - 15 is all the above 00 - 07 colours tinted to a colour... say
  45. blue!
  46. colours 16 - 23 is the 00 - 07 colours tinted another colour.... say red!
  47. colours 24 - 32 is the 00 - 07 colours tinted a mix between blue and red..
  48. purple!
  49.  
  50. Just if you didn't know! Sorry if you already new that but there are people
  51. out there that don't and I know how annoying it is to not know how to do
  52. something!
  53.  
  54. The program is attached and in asc. if you download the attach you will have
  55. my test image stored in bank 8... the asc doesn't!
  56.  
  57. Prog start!
  58. Screen Open 0,320,256,64,Lowres
  59. Flash Off
  60. Curs Off
  61. Cls 0
  62. Ink 63
  63. F Circle 20,20,20,63
  64. Paint 20,20
  65. Get Bob 0,1,0,0 To 40,45
  66. Cls 0
  67. Load Iff "Hd2:testbob.ilbm",0
  68. Double Buffer
  69. Autoback 0
  70. Set Bob 1,0,8,
  71. Set Bob 2,0,16,
  72. A0#=0.3
  73. A1#=0.2
  74. X1#=320
  75. CX=200
  76. CY=100
  77. MS0=5
  78. MS1=6
  79. MS2=4
  80. MS3=7
  81. Repeat
  82.    CX=X Screen(X Mouse)
  83.    CY=Y Screen(Y Mouse)
  84.    If X0#>CX
  85.       If S0#<MS0
  86.          S0#=S0#+A0#
  87.       End If
  88.    End If
  89.    If X0#<CX
  90.       If S0#>-MS0
  91.          S0#=S0#-A0#
  92.       End If
  93.    End If
  94.    If Y0#>CY
  95.       If S1#<MS1
  96.          S1#=S1#+A0#
  97.       End If
  98.    End If
  99.    If Y0#<CY
  100.       If S1#>-MS1
  101.          S1#=S1#-A0#
  102.       End If
  103.    End If
  104.    If X1#>CX
  105.       If S2#<MS2
  106.          S2#=S2#+A1#
  107.       End If
  108.    End If
  109.    If X1#<CX
  110.       If S2#>-MS2
  111.          S2#=S2#-A1#
  112.       End If
  113.    End If
  114.    If Y1#>CY
  115.       If S3#<MS3
  116.          S3#=S3#+A1#
  117.       End If
  118.    End If
  119.    If Y1#<CY
  120.       If S3#>-MS3
  121.          S3#=S3#-A1#
  122.       End If
  123.    End If
  124.    X0#=X0#-S0#
  125.    Y0#=Y0#-S1#
  126.    X1#=X1#-S2#
  127.    Y1#=Y1#-S3#
  128.    Bob 1,X0#,Y0#,1
  129.    Bob 2,X1#,Y1#,1
  130.    Wait Vbl
  131. Until 0
  132.  
  133. Prog End!
  134.  
  135.  
  136. ------=_NextPart_000_0029_01BDDB63.5F350F40
  137. Content-Type: application/octet-stream;
  138.     name="Bobtint.amo"
  139. Content-Transfer-Encoding: base64
  140. Content-Disposition: attachment;
  141.     filename="Bobtint.amo"
  142.  
  143. QU1PUyBCYXNpYyB2MTM0IAAABh4UAQnqAD4AAAAAAFwAPgAAAUAAXAA+AAABAABcAD4AAABAAFwM
  144. kAAAAwENNAAAAwEURgAABgELuAA+AAAAAAAABgEQRAA+AAAAPwAAFAEATgwEBIAAPgAAABAAXAA+
  145. AAAAEABcAD4AAAAQAFwAPgAAAD8AAAoBDugAPgAAABAAXAA+AAAAEAAAGgEcFAA+AAAAAABcAD4A
  146. AAABAFwAPgAAAAAAXAA+AAAAAACUAD4AAAAfAFwAPgAAAB8AAAYBC64APgAAAAAAAAwBAE4CAABI
  147. AD4AAAAIAJQAPgAAAAAAAAMBASwAAAYBDiwAPgAAAAAAAA8BG4oAPgAAAAEAXAA+AAAAAABcAD4A
  148. AAAIAFwAABIBG4oAPgAAAAIAXAA+AAAAAABcAD4AAAAQAFwAPgAAAAsAAAoBAAYAAAIBYTD/ogBG
  149. mZmaPwAACgEABgAGAgFhMf+iAEbMzM0+AAAKAQAGAAwCAXgx/6IAPgAAAUAAAAoBAAYAEgIAY3j/
  150. ogA+AAAAyAAACgEABgAYAgBjef+iAD4AAABkAAALAQAGAB4EAG1zMAD/ogA+AAAABQAACwEABgAk
  151. BABtczEA/6IAPgAAAAYAAAsBAAYAKgQAbXMyAP+iAD4AAAAEAAALAQAGADAEAG1zMwD/ogA+AAAA
  152. BwAABAECUAQmAAALBAAGABICAGN4/6IMHgB0HhYAfAAACwQABgAYAgBjef+iDDgAdB4kAHwAAA0E
  153. Ar4AXgAGADYCAXgw/7YABgASAgBjeAAADgcCvgA+AAYAPAIBczD/rAAGAB4EAG1zMAAAABAKAAYA
  154. PAIBczD/ogAGADwCAXMw/8AABgAAAgFhMAAAAwcC2gAAAwQC2gAADQQCvgBgAAYANgIBeDD/rAAG
  155. ABICAGN4AAAPBwK+AEAABgA8AgFzMP+2/8oABgAeBABtczAAAAAQCgAGADwCAXMw/6IABgA8AgFz
  156. MP/KAAYAAAIBYTAAAAMHAtoAAAMEAtoAAA0EAr4AXgAGAEICAXkw/7YABgAYAgBjeQAADgcCvgA+
  157. AAYASAIBczH/rAAGACQEAG1zMQAAABAKAAYASAIBczH/ogAGAEgCAXMx/8AABgAAAgFhMAAAAwcC
  158. 2gAAAwQC2gAADQQCvgBgAAYAQgIBeTD/rAAGABgCAGN5AAAPBwK+AEAABgBIAgFzMf+2/8oABgAk
  159. BABtczEAAAAQCgAGAEgCAXMx/6IABgBIAgFzMf/KAAYAAAIBYTAAAAMHAtoAAAMEAtoAAA0EAr4A
  160. XgAGAAwCAXgx/7YABgASAgBjeAAADgcCvgA+AAYATgIBczL/rAAGACoEAG1zMgAAABAKAAYATgIB
  161. czL/ogAGAE4CAXMy/8AABgAGAgFhMQAAAwcC2gAAAwQC2gAADQQCvgBgAAYADAIBeDH/rAAGABIC
  162. AGN4AAAPBwK+AEAABgBOAgFzMv+2/8oABgAqBABtczIAAAAQCgAGAE4CAXMy/6IABgBOAgFzMv/K
  163. AAYABgIBYTEAAAMHAtoAAAMEAtoAAA0EAr4AXgAGAFQCAXkx/7YABgAYAgBjeQAADgcCvgA+AAYA
  164. WgIBczP/rAAGADAEAG1zMwAAABAKAAYAWgIBczP/ogAGAFoCAXMz/8AABgAGAgFhMQAAAwcC2gAA
  165. AwQC2gAADQQCvgBgAAYAVAIBeTH/rAAGABgCAGN5AAAPBwK+AEAABgBaAgFzM/+2/8oABgAwBABt
  166. czMAAAAQCgAGAFoCAXMz/6IABgBaAgFzM//KAAYABgIBYTEAAAMHAtoAAAMEAtoAABAEAAYANgIB
  167. eDD/ogAGADYCAXgw/8oABgA8AgFzMAAAEAQABgBCAgF5MP+iAAYAQgIBeTD/ygAGAEgCAXMxAAAQ
  168. BAAGAAwCAXgx/6IABgAMAgF4Mf/KAAYATgIBczIAABAEAAYAVAIBeTH/ogAGAFQCAXkx/8oABgBa
  169. AgFzMwAAFAQbngA+AAAAAQBcAAYANgIBeDAAXAAGAEICAXkwAFwAPgAAAAEAABQEG54APgAAAAIA
  170. XAAGAAwCAXgxAFwABgBUAgF5MQBcAD4AAAABAAADBAzKAAAGAQJcAD4AAAAAAABBbUJzAAFBbUJr
  171. AAgAAYAAKqxQYWMuUGljLhIDGZABcAEJAHEAKgFwAQkAAAAAYgAAQAAGAAACIgREBmYJmQu7Dd0P
  172. /wAEAAUBFwM5BVoHfAquDd8EAAYABxEJMwtEDHcOmQ/MAgIEBAYWCCgKSgxsDZ0PzwYHGWMAAAAA
  173. AC4ANQAFAAYAACb7AAAiggADAgMC/+D5t+v/uAftZf8B631M/4MkmPv/+/5qM//4jxxI/z3uxv/8
  174. fgOz/200ys7/f6uDL/8Sepfs/z99V53/3//NH/8FyL9b/8A/ayr/DFnsZ/8fJ8PZ/9/0UJr/wX/n
  175. Rv/vc3A1/+PxHp7/a6VUcf/4Wxx//5HTumT//u++6P/4/m36/y5B+9n/APpfU/9gyWY+4MAg4AAD
  176. AgNYbIKLCXZzm+y2dFVlVDaXcOwb7Pqb6eZ0zi+LNX5v0XNpHTA/7/9D+PMCP+GX+BhUY+s1uB+K
  177. TkBRLprC8/y4w2MUX02zmttisaSrL6C3v4Rn32PW2Uwxo3N+W6vweYmfT+qH/3j5H8SfEPoLv8HF
  178. oBxaqsL5VHYHj3fVFpvg4sIdHKb7bZ3V2RWNJVx7BrvAACDgAAP/c99SVuh4oYvotcnbLcoPVv7n
  179. 5obCDz+zbcF2LA99MmPvv9OTcY8Ro9PVLhYzm9o9/WrMJ3DxNr8P5283+75a+v+b/ZS3RcYOWUao
  180. St9vV3y28Dk1MxZ7+ZhrCbNnfe6UG3z4nZ6OeYgZnK5xt5ve0evvUWU4h4ux/306f7/c99TV+t7o
  181. orotMnbLMkNV/3m5wICg4IAAA3XG+K9qt7mp6Rdei1XafuDnxC5w+ryUZQL54L5tu2HbSqLj3w/S
  182. X3y46+UPTtVd6/Whlv+988XG8DPr+/a3lXOtNcV/ULrMSk6791+v1vEDPz0kc4DX56UrFcsG8m3f
  183. DthWEhv9f5f44sZaL391rO9drw62/+mfLzeFnFvdsb6rmm2uKvqF12JVdt+4+XmxiyDgIKAAA/mD
  184. 1T640bn9v26wbvb+fNBfdf4Cv1Nq9RbEttFP8nNSNX73L+/KnPoFBmlc8d8uy9ekjtnNHq33xYvN
  185. 6/93g3ay8+eA/arzF/ieVa6yJ7OKeZOfka/2vH94UOPSLzZJ5o79dF6+IHXPbvRuvy9bbFv9vx+0
  186. oIAAIAACAwIDJXO1tG5bRrZqr2nM6g9u9gP2tft/vJqrvz/erBjb93gT+38vkH6Dxm5Uem8bVkTq
  187. fK6aTTJ27kVuUf+pE93F8yqaqqVz3TM2t1B7T2BXfXezHbSt3fnm1Vj+//Ngx9u5xJvc/nuC8xsw
  188. cqLXe920IlHjd9Jrkrd1KHaO/0mc7S2bVtFRLZrrmrO6g9t9AL3toIDAgGAAAgOVusbJ2/FN4/z7
  189. ayU6N6t7ulxGW9sKD7S72VvRP//XsTabeu38ntGS36BW2xVub6e/ZezYnakbjJwO71pU9S4e9q/S
  190. N0/fi2kZ4d1bLdK6Wt7Q4DXd3lJ+od/O3Yn8+7+PtN7UbuXyjpD7A7Xdq3d+PP0oZMToT9pi53F4
  191. 16WucfK2fJO4f/5aSc4N6t5ul9HWwKAggMAAAwID9nj/fH94a5ftbj7n/cU87HX11To9vm/IR56W
  192. yPt2QlU9A/887E6s3VtKL9ShOmsb+5feDqE90TVun9NRV9vP8zOzw/zn+8Ffv25x9zvvLuFhrauu
  193. 0uz0fkc78rJB2LcRr+od/uJicWbt2VN4pwzWWN3ZvvFzDO6Kqnb+n4m93n+fnhrlO9sP+f9xj7vd
  194. fXUOIGCgAAMCA2/LUuKDRnpwX93yJccPiTbfPcCg9g/hb/t7NbKZGLni9plxYc5hfx/4sXHud6Bn
  195. 3L9jngFn70DY9quPK4aKHwR6W5MSHjfRhvjskS45fk61/+gHAwezeQ182N2vl8zDyxazy4gPdQv/
  196. +8WLjnW7BDjj/xr2Dz18AcS0WHhbMlT4INHenJf3vIkxw2KNd8/wcIDAQCAAAgMCAy3oo6T+viZc
  197. hkXhkVDZtKntHsxsw4jcLiRtx9aZlWtfjVaYb/wQ8+yfdUfW/biT2flu/nPLPMfxKhTs0fmvne3v
  198. bU